#!/src/bin/perl -w
$filename = "corpus/amants.txt";
chomp($filename);
open (FileInput, $filename)||die "Can't open file";
open (FileOutput, '>moteneau_numeroter.txt');
$i=1;
while ($line = <FileInput>) 
{
	@lines = split(/ /,$line);    
    foreach $mot (@lines)       
	{       
        if ($mot =~ /eau/)
		{
			print FileOutput $i." ".$line;
		}
	}
	$i = $i+1;

}
close(FileInput);
close(FileOutput); 